home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-01-28 | 384 b | 17 lines | [TEXT/ToyS] |
- tell application "JUNO Librarian"
- activate -- if needed
- set x to Parameter 17 of Window "Sample"
- set y to (round (x ÷ 2) rounding down)
- set y to y * 2
- set z to x - y -- PWM switch
- set y to (round (y ÷ 4) rounding down)
- set y to y * 4
- set x to y + z
-
- -- select 1 of 2
- -- set x to x + 0 -- ENV +
- set x to x + 2 -- ENV -
-
- copy x to Parameter 17 of Window "Sample"
- end tell
-